<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>309</cardCount>
<cardID>3718</cardID>
<listID>82954</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>416</width>
<height>240</height>
</cardSize>
<script>on lockitset locktext of fld 2 to trueset locktext of fld 3 to trueend lockiton unlockitset locktext of fld 2 to falseset locktext of fld 3 to falseend unlockiton newcardtype tabend newcardon closecardglobal indexscrollput the scroll of fld 1 into indexscrolllock screenend closecardon opencardglobal indexscrollset the scroll of fld 1 to indexscrollunlock screenend opencardon indexitpush cardsort by fld 2put empty into fld 1repeat with x = 1 to the number of cdsput fld 2 of cd x into line x of fld 1end repeatdomenu "compact stack"beeppop cardend indexiton importitanswer file "Pick a file to import:" of type textif it is empty then exit to hypercardput it into fnameopen file fnamerepeatread from file fname until returnif it is empty then exit repeatdomenu "new card"delete last char of itput it into fld 2repeat 5read from file fname until returnput it after fld 3end repeatend repeatclose file fnameend importit</script>
